'++LotusScript Development Environment:2:5:(Options):0:66 '++LotusScript Development Environment:2:5:(Forward):0:1 Declare Sub Gotfocus(Source As Dropdownbox) '++LotusScript Development Environment:2:5:(Declarations):0:2 '++LotusScript Development Environment:2:2:BindEvents:1:129 Private Sub BindEvents(Byval Objectname_ As String) Static Source As DROPDOWNBOX Set Source = Bind(Objectname_) On Event Gotfocus From Source Call Gotfocus End Sub '++LotusScript Development Environment:2:2:Gotfocus:1:12 Sub Gotfocus(Source As Dropdownbox) End Sub